﻿Public Class DoanhSo
    Dim _id, _soLuongTiecCuoi, _tiLe As Integer
    Dim _ngay As DateTime
    Dim _doanhThu As Double

    Public Property ID() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Public Property Ngày() As DateTime
        Get
            Return _ngay
        End Get
        Set(ByVal value As DateTime)
            _ngay = value
        End Set
    End Property
    Public Property Số_Lượng_Tiệc_Cưới() As Integer
        Get
            Return _soLuongTiecCuoi
        End Get
        Set(ByVal value As Integer)
            _soLuongTiecCuoi = value
        End Set
    End Property
    Public Property Doanh_Thu() As Double
        Get
            Return _doanhThu
        End Get
        Set(ByVal value As Double)
            _doanhThu = value
        End Set
    End Property
    
    Public Property Tỉ_Lệ() As Integer
        Get
            Return _tiLe
        End Get
        Set(ByVal value As Integer)
            _tiLe = value
        End Set
    End Property

    Public Sub New(ByVal id As Integer, ByVal ngay As DateTime, ByVal soLuongTiecCuoi As Integer, ByVal doanhThu As Double, ByVal tiLe As Integer)
        _id = id
        _ngay = ngay
        _soLuongTiecCuoi = soLuongTiecCuoi
        _doanhThu = doanhThu
        _tiLe = tiLe
    End Sub
End Class
